;------------------------------------------------------
;
;  WORLDWIDE -- globe animation (c) 1990 Copyright Chris Butler
;            -- revised  1/15/91 for rev 1.02
;			
;		pic buffer 4 temp use
;		clp buffer 1 temp use

set allpsdi off
goto top
all:
set allpsdi on
top:


video m
set numboffices 25    ;

pload worldmap 4 
pfade 5 4
palette 4
pfree 4

databegin offices	; choose OFFICES datablock

; show all offices
; display l to r in longitudinal order

mark @numboffices		
set x  @
set y  @ 

color 12
rect @x,@y @x+4,@y+4
color 0
line @x,@y @x+4,@y+4
line @x,@y+4 @x+4,@y
noise 100 200 10
waitkey 20
loop  
waitkey 150

; now roll on "where u need us to be" clipping

cload whereund.clp 1 1 0
cfade 1 40,30  1 200 50
cfree 1

; FOLLOWING LINES ADDED TO REV 1.02 TO GET UNDER 1.2M LIMIT
WAITKEY 300
GOTO WWLABELX

; show us + intl offices

pload worldgr4.pic 1 
palette 1
pfade 9 1 400
pfree 1
waitkey 100

cload usoffice.clp 1 1 0
cfade 9 104,98 1 150 
note 100 10 10
waitkey

cload intla.clp 1 1 0
cfade 9 56,40 1 150
note 100 10 10
waitkey

cload intlb.clp  1 1 0
cfade 9 64,34 1 150
note 100 10 10
waitkey

cload intlc.clp  1 1 0
cfade 9 56,27 1 150
cfree 1
note 100 10 10
waitkey

WWLABELX:

if @allpsdi==on
  link clients.txt all
 else 
  link master.txt entry_5
endif

; SUBR WORLDWIDE  
;
; la ger bos thai? spain calgary?
; malaysia? seattle italy dallas london dc sinagapore?
; sf vienna? toronto? sydney? chicago hongkong? 
; delhi? denver switz nyc tokyo france melbourne?
;
offices:

83,280
85,263
90,258
98,298
109,267
124,254
138,268
149,289
157,260
162,266
169,273 
293,269
295,296
303,282
313,282
314,294
321,273
332,288
440,236
478,194
480,220
514,194
518,270
543,261
563,132


dataend   

; offices array ordered by longitude
longorder:
8  14 1 6 21 10 18 16 12 23  3	5 11
25 22 2 9 15 20  7  4 17 13 19 24 26
dataend

; SUBR WORLDWIDE
---------------------------------------video m